www.gusucode.com > 6KBBS ASP版 V7.1 > 6KBBS ASP版 V7.1\code\bbs\Userlist.asp

    <!--#include file="up.asp"--><!--#include file="inc/grade.asp"--><!--#include file="inc/page.asp"-->
<%
if isnull(lguserid) or lguserid="" then response.redirect"login.asp"
dim action,sql,sex1
action=request.querystring("action")
sql="select * from [user] where not del order by "
select case action
	case"mark"
		sql =sql&"mark desc"
	case"tienum"
		sql =sql&"alltopicnum desc"
	case"letter"
		sql =sql&"name"
	case"logtime"
		sql =sql&"lasttime desc"
	case ""
		sql =sql&"userid desc"
end select
%>
<div class=userlist>
<div class=userlisttitle>用户列表</div>


<table class="userlisttop">
<tr>
<td width="18%" align="center" height="25"><b><a href=?action=letter>用户名</a></b></td>
<td width="10%" align="center"><b>性别</b></td>
<td width="10%" align="center"><a href=?action=tienum><b>发帖数</b></a></td>
<td width="10%" align="center"><a href=?action=mark><b>积分</b></a></td>
<td width="18%" align="center"><b><a href=?action=logtime>登陆时间</a></b></td>
<td width="15%" align="center"><b>等级</b></td></tr>
</table>
<%
dim wzcount,wzrep,wzpagecount,wzpage,pagestr,urlstr,renum,hot,width,face,n,nn

action=request.querystring("action")

urlstr="action="&action

wzrep=25

set rs = server.createobject("adodb.recordset")
	rs.Open sql,conn,1
		if rs.eof or rs.bof then
			response.write"<div class=norecord>暂无记录</div>"
		else
		
			wzcount=rs.recordcount
			
			wzpagecount = abs(int(-abs(wzcount/wzrep)))
			wzpage = clng(request.querystring("page"))
			if len(wzpage) = 0 or wzpage = 0 then wzpage = 1
			rs.absoluteposition=rs.absoluteposition+((abs(wzpage)-1)*wzrep)
			pagestr="每页<font color=red>"&wzrep&"</font>条 共<font color=red>"&wzpagecount&"</font>页 ["&pagination(wzpagecount,urlstr)&"]&nbsp;"
			response.write"<div class=userlistpagestr>"&pagestr&"</div>"
			for i = 0 to wzrep-1
				if rs.eof then exit for

				sex1="帅哥"
				if split(rs("userinfo"),"|")(4)<>"1" then sex1="美女"
				response.write"<table border=0 cellpadding=0 cellspacing=1 align=center width=100% ><tr><td width='18%' align=center height=25><a href='userinfo.asp?userid="&rs("userid")&"'>"&checktitle(rs("name"))&"</a></td><td width=10% align=center>"&sex1&"</td><td width='10%' align=center><font color=red>"&rs("alltopicnum")&"</font></td><td width=10% align=center>"&rs("mark")&"　</td><td width=18% align=center><font color=red>"&formatdatetime(rs("lasttime"),1)&"</font></td><td width='15%' align=center></b>『 "&gradename(rs("grade"))&" 』</td></tr></table>"
				
				rs.movenext
			next%><%
response.write"<div class=userlistpagestr>"&pagestr&"</div>"
		end if
	rs.Close
set rs=nothing
%></div><%call down()%>